Chip 1997 April/CHIP Nisan 1997.iso/Prg/PWRDREAM/PWRDREAM.EXE/0/RCDATA/TFORM4/TFORM4.txt

Text File | 1996-12-28 | 14KB | 524 lines

object Form4: TForm4
  Left = 271
  Top = 145
  BorderStyle = bsDialog
  Caption = 'PowerDREAM registration'
  ClientHeight = 351
  ClientWidth = 421
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 259
    Width = 421
    Height = 92
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 18
      Top = 12
      Width = 159
      Height = 13
      Caption = 'Enter your name exactly as given:'
    end
    object Label2: TLabel
      Left = 68
      Top = 41
      Width = 109
      Height = 13
      Caption = 'Enter registration code:'
    end
    object Edit1: TEdit
      Left = 184
      Top = 6
      Width = 225
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 184
      Top = 35
      Width = 225
      Height = 21
      TabOrder = 1
    end
    object OK: TButton
      Left = 336
      Top = 64
      Width = 75
      Height = 25
      Caption = 'OK'
      TabOrder = 2
      OnClick = OKClick
    end
    object Cancel: TButton
      Left = 256
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Cancel'
      TabOrder = 3
      OnClick = CancelClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 421
    Height = 259
    ActivePage = TabSheet7
    Align = alClient
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabHeight = 20
    TabOrder = 1
    object TabSheet7: TTabSheet
      Caption = 'Online'
      object Memo13: TMemo
        Left = 16
        Top = 0
        Width = 385
        Height = 233
        TabStop = False
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          ''

            'This program can be registered online directly with HACE through' +
            ' a secure '
          'server for 130 Nkr (approx 20 USD or 13 GBP). Go to'
          ''

            '    http://www.swregnet.com/542p.htm               <  Click to g' +
            'o there'
          ''
          'and enter the required details in the form.'
          ''
          'MasterCard / EuroCard and Visa accepted.')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object Panel8: TPanel
        Left = 295
        Top = 168
        Width = 113
        Height = 57
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel6'
        TabOrder = 1
        object Memo14: TMemo
          Left = 8
          Top = 8
          Width = 97
          Height = 41
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Please e-mail, fax or'
            'call for site licenses '
            'and discounts.')
          ParentFont = False
          TabOrder = 0
        end
      end
      object Button2: TButton
        Left = 15
        Top = 48
        Width = 226
        Height = 27
        Caption = 'https://www.futurefx.com/hace.us/register/'
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'RegNet'
      object Memo3: TMemo
        Left = 16
        Top = 0
        Width = 385
        Height = 233
        TabStop = False
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          ''

            'This program can be registered online for 24.50 USD through RegN' +
            'et at: '
          ''
          '    http://www.swregnet.com/542p.htm        <  Click to go there'
          ''
          'or by calling 1 800 WWW2REG (1 800 999-2734) or [phone].'
          ''

            'All major credit cards accepted.              PowerDREAM has the' +
            ' RegNet #: 542'
          ''

            'Cash, checks or money orders are also accepted through RegNet. T' +
            'hey must '

            'be in U.S. dollars (drawn on a U.S. bank) and made payable to Wi' +
            'ntronix, Inc.  '
          'The mailing address is:'
          ''
          'RegNet (Wintronix, Inc.)'
          '21200 Trumpet Drive #201'
          'Santa Clarita, CA  91321-4441')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object Panel6: TPanel
        Left = 295
        Top = 168
        Width = 113
        Height = 57
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel6'
        TabOrder = 1
        object Memo7: TMemo
          Left = 8
          Top = 8
          Width = 97
          Height = 41
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Please e-mail, fax or'
            'call for site licenses '
            'and discounts.')
          ParentFont = False
          TabOrder = 0
        end
      end
      object Button1: TButton
        Left = 15
        Top = 35
        Width = 202
        Height = 27
        Caption = ' http://www.swregnet.com/542p.htm'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Panel7: TPanel
        Left = 10
        Top = 125
        Width = 331
        Height = 17
        Alignment = taRightJustify
        BevelOuter = bvNone
        Caption = 'Cash, checks or money orders are also accepted through RegNet. '
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'E-mail'
      object Memo1: TMemo
        Left = 16
        Top = 0
        Width = 385
        Height = 233
        TabStop = False
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          ''

            'Credit card registrations may be sent by e-mail to the address b' +
            'elow. The '

            'amount of 130 NKr (approx 20 USD or 13 GBP) will then be charged' +
            ' to your '

            'card for each of the copies you want registered. Registration de' +
            'tails will then '
          'be returned to you as soon as possible.'
          ''
          'MasterCard / EuroCard and Visa accepted.'
          ''
          'Card details should include:'
          '     Name as seen on card'
          '     Credit card number'
          '     Expiration date of card'
          ''
          ''
          ''
          'e-mail address:  [e-mail]')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 295
        Top = 168
        Width = 113
        Height = 57
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel2'
        TabOrder = 1
        object Memo9: TMemo
          Left = 8
          Top = 8
          Width = 97
          Height = 41
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Please e-mail, fax or'
            'call for site licenses '
            'and discounts.')
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Fax/Phone'
      object Memo2: TMemo
        Left = 16
        Top = 0
        Width = 385
        Height = 233
        TabStop = False
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          ''

            'Credit card registrations can be faxed to the number below. The ' +
            'amount of 130 '

            'NKr (approx 20 USD or 13 GPB) will then be charged to your card ' +
            'for each of '

            'the copies you want registered. Registration details will then b' +
            'e returned to '
          'you as soon as possible.'
          ''
          'MasterCard / EuroCard and Visa accepted.'
          ''
          'Card details should include:'
          '     Name as seen on card'
          '     Credit card number'
          '     Expiration date of card'
          '     Signature of card holder'
          ''
          ''
          'Fax/Phone: [phone]   (Fax is a 24 hour service)')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object Panel3: TPanel
        Left = 295
        Top = 168
        Width = 113
        Height = 57
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel3'
        TabOrder = 1
        object Memo4: TMemo
          Left = 8
          Top = 8
          Width = 97
          Height = 41
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Please e-mail, fax or'
            'call for site licenses '
            'and discounts.')
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'SWIFT'
      object Memo8: TMemo
        Left = 16
        Top = 1
        Width = 385
        Height = 225
        TabStop = False
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          ''

            'You can register by means of the bank-to-bank SWIFT method. Have' +
            ' your '

            'bank transfer the amount of 130 Norwegian Kroner (approx 20 USD ' +
            'or 13 '

            'GBP) to the account below for each copy you want registered. Use' +
            ' the '
          'following information:'
          ''
          'Norlandsbanken  NOBANO22'
          'Acc: 8987 10 48275'
          '    HACE / Eirik Hansen'
          '    Industrivn.12'
          '    8500 Narvik'
          '    Norway'
          ''
          'When my bank informs me of the transaction I will '
          'send you registration details as soon as I can by '
          'e-mail if possible, or ordinary post.')
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object Panel4: TPanel
        Left = 295
        Top = 168
        Width = 113
        Height = 57
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel4'
        TabOrder = 0
        object Memo5: TMemo
          Left = 8
          Top = 8
          Width = 97
          Height = 41
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Please e-mail, fax or'
            'call for site licenses '
            'and discounts.')
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Purchase Order'
      object Memo10: TMemo
        Left = 16
        Top = 0
        Width = 385
        Height = 233
        TabStop = False
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          ''

            'Purchase orders are available to larger companies. They can be e' +
            '-mailed, '

            'faxed of phoned. Please use the order-form provided in the file ' +
            'Order.txt. '
          'Remember to include a purchase order number.'
          ''
          'E-mail: [e-mail]'
          ''
          'Fax/Phone: [phone]')
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object Panel5: TPanel
        Left = 295
        Top = 168
        Width = 113
        Height = 57
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel5'
        TabOrder = 0
        object Memo6: TMemo
          Left = 8
          Top = 8
          Width = 97
          Height = 41
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Please e-mail, fax or'
            'call for site licenses '
            'and discounts.')
          ParentFont = False
          TabOrder = 0
        end
      end
    end
  end
end